home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / btype.lst < prev    next >
File List  |  1991-09-17  |  719b  |  20 lines
  1. Voyager-generated listing of BTYPE by Joe Horn
  2.  
  3. 02D9D  ::
  4. 18AB2    CK1NOLASTWD  *  Verify DEPTH ≥ 1
  5. 62CB9    DUPDUP       *  ob --> ob ob ob
  6. 62035    DUPTYPEIDNT? *  
  7. 619BC    IT           *  do next ob if True, else skip
  8. 02D9D    ::
  9. 0797B      @          *  recall w/ True if ok, False if not found
  10. 619BC      IT         *  do next ob if true, else skip
  11. 60F9B      SWAPDROP   *  ob1 ob2 --> ob1
  12. 03188      DUP        *  ob --> ob ob
  13. 0312B    ;
  14. 1A1FC    Internal BYTES (1:Any except Global)
  15. 60F9B    SWAPDROP     *  ob1 ob2 --> ob1
  16. 03223    SWAP         *  ob1 ob2 --> ob2 ob1
  17. 15CBB    get object type description (as String)
  18. 05E81    >TAG         *  tag ob with type, e.g. Real Number: 2.5
  19. 0312B  ;
  20.